home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-2.dxr / Internal_11_boton lupa.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  717 b   |  27 lines
  1. on mouseUp
  2.   if rollOver(26) then
  3.     set the member of sprite 26 to member "BtMod_2_A/3" of castLib "elementos graficos"
  4.     puppetSprite(26, 0)
  5.     updateStage()
  6.     repeat with xx = 1 to 29
  7.       set the visible of sprite xx to 0
  8.     end repeat
  9.     set the visible of sprite 46 to 0
  10.     set the visible of sprite 34 to 0
  11.     set the visible of sprite 38 to 0
  12.     go("lupa")
  13.   end if
  14. end
  15.  
  16. on mouseDown
  17.   repeat while the stillDown
  18.     puppetSprite(26, 1)
  19.     if rollOver(26) then
  20.       set the member of sprite 26 to member "BtMod_2_B/3" of castLib "elementos graficos"
  21.     else
  22.       set the member of sprite 26 to member "BtMod_2_A/3" of castLib "elementos graficos"
  23.     end if
  24.     updateStage()
  25.   end repeat
  26. end
  27.